home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / M2PROTOS.ZIP / QCBPLUS.DEF < prev    next >
Encoding:
Modula Definition  |  1990-08-05  |  1.7 KB  |  48 lines
  1. (*# call(o_a_copy => off) *)
  2. (*%F _fcall *)
  3. (*# call(seg_name => null) *)
  4. (*%E *)
  5. (*# module(implementation=>on) *)
  6. (*# data(seg_name => null) *)
  7. DEFINITION MODULE QCbplus;
  8.  
  9.                      (* This JPI Modula-2 module is part of *)
  10.  
  11.                       (* QC -- a communications program *)
  12.                              (* by Carl Neiburger *)
  13.                               (* 169 N. 25th St.*)
  14.                           (* San Jose, Calif. 95116 *)
  15.  
  16.                          (* CompuServe No. 72336,2257 *)
  17.  
  18. (* These procedures were derived from B Plus Protocol Support routines
  19.    written by Russ Ranshaw, of CompuServe, user number 70000,1010.
  20.    I owe him extensive thanks for for helping me with them. *)
  21.  
  22. VAR
  23. (*
  24.   These Global Variables must be initialized by the calling
  25.   program before any routines in this unit are invoked.
  26. *)
  27.  
  28.   AbortMax   : CARDINAL;     (* Number OF Abort requests allowed before*)
  29.                              (* performing a "fatal abort." *)
  30.   AutoResume : BOOLEAN;      (* TRUE to automatically attempt transfer *)
  31.                              (* resumption IF the Initiator can do it  *)
  32.  
  33. (* QuoteThis is invoked to set bits IN SpecialQuoteSet. *)
  34. (* It sets SpecialQuoting TRUE to use the special quote set.    *)
  35. (* IF Value = 0FFH, the Special Quote Set is restored to its default. *)
  36. PROCEDURE QuoteThis (Value: SHORTCARD);
  37.  
  38. (* TermENQ is invoked when Terminal Mode receives <ENQ> from host *)
  39. PROCEDURE TermENQ;
  40.  
  41. (* TermEscI is invoked when Terminal Mode receives <ESC><I> from host *)
  42. PROCEDURE TermEscI (EscIResponse : ARRAY OF CHAR);
  43.  
  44. (* DleBseen is invoked when Terminal Mode receives <DLE> from host *)
  45. PROCEDURE DleBSeen;
  46.  
  47. END QCbplus.
  48.